inherited dtmcw_PayMoney: Tdtmcw_PayMoney
  OldCreateOrder = True
  Left = 405
  Top = 332
  Height = 414
  Width = 659
  inherited adsMaster: TADODataSet
    CursorType = ctStatic
    CommandText = 'Select * from V_cw_PayMoney'
    object adsMasterDeptID: TStringField
      DisplayLabel = #20844#21496'ID'
      FieldName = 'DeptID'
    end
    object adsMasterSupplyID: TStringField
      DisplayLabel = #20379#24212#21830'ID'
      FieldName = 'SupplyID'
    end
    object adsMasterSupplyCode: TStringField
      DisplayLabel = #20379#24212#21830#32534#30721
      FieldName = 'SupplyCode'
    end
    object adsMasterSupplyShortName: TStringField
      DisplayLabel = #20379#24212#21830#21517#31216
      FieldName = 'SupplyShortName'
    end
    object adsMasterBeginPreMoney: TFloatField
      DisplayLabel = #26399#21021#20313#39069'|'#39044#20184
      FieldName = 'BeginPreMoney'
    end
    object adsMasterAddPreMoney: TFloatField
      DisplayLabel = #26412#26399#22686#21152'|'#39044#20184
      FieldName = 'AddPreMoney'
    end
    object adsMasterSubPreMoney: TFloatField
      DisplayLabel = #26412#26399#20943#23569'|'#39044#20184
      FieldName = 'SubPreMoney'
    end
    object adsMasterPreMoney: TFloatField
      DisplayLabel = #26412#26399#20313#39069'|'#39044#20184
      FieldName = 'PreMoney'
    end
    object adsMasterBeginMoney: TFloatField
      DisplayLabel = #26399#21021#20313#39069'|'#24212#20184
      FieldName = 'BeginMoney'
    end
    object adsMasterAddMoney: TFloatField
      DisplayLabel = #26412#26399#22686#21152'|'#24212#20184
      FieldName = 'AddMoney'
    end
    object adsMasterPayMoney: TFloatField
      DisplayLabel = #26412#26399#20943#23569'|'#24212#20184
      FieldName = 'PayMoney'
    end
    object adsMasterMoney: TFloatField
      DisplayLabel = #26412#26399#20313#39069'|'#24212#20184
      FieldName = 'Money'
    end
    object adsMasterAccountBeginMoney: TFloatField
      DisplayLabel = #26399#21021#20313#39069'|'#20313#39069
      FieldName = 'AccountBeginMoney'
      ReadOnly = True
    end
    object adsMasterAccountMoney: TFloatField
      DisplayLabel = #26412#26399#20313#39069'|'#20313#39069
      FieldName = 'AccountMoney'
      ReadOnly = True
    end
  end
  inherited adsMasterEdit: TADODataSet
    CursorType = ctStatic
  end
  object adsUserCompany: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 
      'select b.DeptID, b.DeptCode, b.DeptName from xt_CompanySet a '#13#10'j' +
      'oin da_Department b on a.CompanyID=b.DeptID'#13#10'where a.UserID=(sel' +
      'ect UserID from xt_Users where UserCode=:UserCode)'#13#10'and isnull(b' +
      '.HasStop,0)=0'
    Parameters = <
      item
        Name = 'UserCode'
        Size = -1
        Value = Null
      end>
    Left = 176
    Top = 40
  end
end
